home *** CD-ROM | disk | FTP | other *** search
/ Aminet 12 / Aminet 12 (1996)(GTI - Schatztruhe)[!][Jun 1996].iso / Aminet / dev / e / framework.lha / examples / myapp.e next >
Encoding:
Text File  |  1996-01-28  |  652 b   |  23 lines
  1.  
  2. -> WB FrameWork example: AppIcon + CTRL-C
  3.  
  4. -> Copyright © Guichard Damien 01/04/1996
  5.  
  6. MODULE 'icon','wb'
  7. MODULE 'fw/eventLoop','fw/ctrl_c','fw/wbAppIcon'
  8.  
  9. PROC main() HANDLE
  10.   DEF break:PTR TO ctrl_c, icon:PTR TO wbAppIcon, loop:PTR TO eventLoop
  11.   IF (iconbase:=OpenLibrary('icon.library',0))=NIL THEN Raise(0)
  12.   IF (workbenchbase:=OpenLibrary('workbench.library',0))=NIL THEN Raise(0)
  13.   NEW break, icon, loop
  14.   IF icon.create('WB AppIcon','PROGDIR:myapp')=NIL THEN Raise(0)
  15.   loop.addWBObject(break)
  16.   loop.addWBObject(icon)
  17.   loop.do()
  18. EXCEPT DO
  19.   IF workbenchbase THEN CloseLibrary(workbenchbase)
  20.   IF iconbase THEN CloseLibrary(iconbase)
  21. ENDPROC
  22.  
  23.